home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gwu / tell.c < prev    next >
C/C++ Source or Header  |  1996-01-30  |  1KB  |  42 lines
  1. /*
  2.     GWAda Development Environment for 386/486 PCs   
  3.     Copyright (C) 1993, Arthur Vargas Lopes  & Michael Bliss Feldman
  4.                         vlopes@vortex.ufrgs.br mfeldman@seas.gwu.edu
  5.  
  6.     This program is free software; you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation; version 2 of the License.    
  9.  
  10.     This program is distributed in the hope that it will be useful,
  11.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13.     GNU General Public License for more details.
  14.  
  15.     You should have received a copy of the GNU General Public License
  16.     along with this program; if not, write to the Free Software
  17.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18. */
  19.  
  20. /* tell.c */
  21.  
  22. #include "externs.h"
  23.  
  24.  
  25. void AVL_TELL(char *s)
  26. {
  27.     AVL_WIN_PTR win;
  28.     short cor, n1, n2;
  29.     n1 = strlen(s) + 10;
  30.     if (n1 > 76) n1 = 76;
  31.     *(s+n1) = '\0';
  32.     n2 = (80 - n1) / 2;
  33.     if (n2 <= 0) n2 = 1;
  34.     if ((n1 + n2) >= 80) n2 = 1;
  35.     win = AVL_MAKE_WINDOW(" Action Report ",7,n2,9,n1+n2+2,avl_wnd_bk_color,avl_wnd_color);
  36.     cor = _settextcolor(avl_err_color);
  37.     _outtext(" ");
  38.     _outtext(s);
  39.     AVL_PAUSE(20);
  40.     AVL_DEL_WINDOW(win);
  41. }
  42.